home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar - Compleat Bible
/
newtest.d81
/
o.whole search
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-28
|
4KB
|
115 lines
15 poke56,40:clr:poke53272,23:print"";
35 dv=peek(186):ifdv<8ordv>16thendv=8
37 sys57812"bible 3000",dv,0:poke780,0:poke781,0:poke782,48:sys65493
38 sys57812"dtext 2800",dv,0:poke780,0:poke781,0:poke782,40:sys65493
40 mt=12288:dtext=10240:dimfiles$(10),d%(7),b$(66)
50 rem poke53374,0:poke53366,0:poke53375,0
55 sysmt+201,95,105,4,10,14,1,14,7,6,1,0,0
60 sys10240,"books",dv,80*256:sysmt+36,80*256:wb=peek(20):sysmt+54:bl=f%
65 sysmt+15,"bnames",dv,107*256:sysmt+36,107*256:sysmt+54:bn=f%
66 fori=0to65:sysmt+33,i:b$(i)=w$:next
70 open2,dv,2,"bible mark,p,r":get#2,a$,a$:input#2,bb,bc,bv:close2
75 ifst<>64thenbb=39:nc=1:bv=1
80 poke650,128:sh=mt+96:fr=mt+6:ce=mt+78:bo=mt+3:at=ce-3
85 x=0:fori=8to29:ifi<>14thenclose2:open2,i,2:close2:ifst=0thend%(x)=i:x=x+1
90 next:fori=0tox:ifd%(i)=dvthena=i
95 next:nd=x:i=d%(0):d%(a)=i:d%(0)=dv:dx=0
100 t$="[194]ible [211]earch"
105 a$(1)="[211]tart [193] [211]earch ([211])"
125 a$(2)="[194]ack to [205]ain [205]odule ([205])
136 a$(3)[178]"(NULL)eturn to (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) ((NULL))"
140 h$[178]" smq"
145 [158]mt[170]198,t$,3,a$(1),a$(2),a$(3),h$
150 [145]f%[141]300,190,190,210:[137]100
190 f$[178]"compleat nt":[137]2300
200 f$[178]"compleat nt":[137]2300
210 f$[178]"hello connect":[137]2300
300 [158]mt[170]36,80[172]256:[158]mt,1,38,1,23,95,105,15,12
310 [158]sh,2,2[170]wb,3,20:[158]bo,3,3[170]wb,14,19,160,15
320 [158]at,4,15,"list(NULL)lease select each
330 sysat,4,16,"book to be searched
340 [158]at,4,17,"w/(NULL)val(NULL)(NULL)(NULL)(NULL). (NULL)left$-(NULL) to
350 sysat,4,18,"find book. [198]1 [206]ext
360 [158]mt[170]42,3,3[170]wb,2,12,1,12,7,1,bb,65,1:[141]2400:[142]
365 book%[178]i%:[139]lb[178]i%[167]410
370 ww$[178]w$:[158]mt[170]84,w$:f$[178]w$:t[178]0
380 [141]1000:[139]f%[178][171]1[176][197](a$)[167][139]t[179]nd[167][141]2100:[137]380
390 [139]f%[178][171]1[167]e$[178]"error bnf":[141]2200:[142]
400 [158]mt[170]48,0:[158]mt[170]27,bl:[158]mt[170]30,ww$,bo%,1:[158]dt,w$,d%(dx),84[172]256:hs[178]0:lh$[178]w$
1000 [158]mt[170]39,"$:"[170]f$,d%(dx),208[172]256:[158]mt[170]48,0:[160]15:[159]15,d%(dx),15
1010 [132]15,a$,e$:[160]15:[142]
2100 dx[178]dx[170]1:[139]d%(dx)[178]0[167]dx[178]0
2110 t[178]t[170]1:[142]
2200 [158]sh,0,39,0,24:[158]mt[170]48,0:[158]mt[170]15,e$,dv,28000:[158]mt[170]36,28000:en[178]f%[171]1
2205 [139]e$[178]"error bnf"[167][158]mt[170]30," right$ couldn't find "[170][199](34)[170]f$[170][199](34),1,1
2210 [158]box,0,39,1,19,160,7:[158]frame,0,39,0,20,2
2220 [158]mt[170]42,1,38,1,19,1,7,1,1,0,en[171]1,0:[142]
2300 t[178]0
2310 [141]1000:[139][197](a$)[176]f%[179]0[167][139]t[179]nd[167][141]2100:[137]2310
2320 [139][197](a$)[178]0[175]f%[177][171]1[167]40000
2330 e$[178]"error bnf":[137]2200
2400 [153]"open";:[158]mt[170]27,bl:[151]828,0:[158]mt[170]213,0,65:[139]f%[177][171]1[167]2460
2410 a$[178]"(NULL)o books selected":[141]5020:[151]1998,0:[142]
2460 [158]bo,2,37,22,22,32,0:[158]at,2,22,"waitsys(NULL)earch:"
2470 [158]mt[170]51,1,3,20,"":s$[178]w$:[139]s$[178]""[167][142]
2480 of$[178]"":a$[178]"chr$enerate (NULL)utput ascile ((NULL)/(NULL))?":[141]5020:[161]a$:[139]a$[179][177]"y"[167]2560
2490 [158]bo,2,37,22,22,32,0:[158]at,2,22,"waitopen(NULL)utfile name: "
2500 [158]mt[170]51,1,7,16,"@0:search.txt":of$[178]w$
2515 [158]bo,2,37,22,22,32,0:[158]at,2,22,"waitopenstr$evice number: "
2520 [158]mt[170]51,1,7,2,[202]([196](dv),2):of[178][197](w$):[139]of[178]0[167]of$[178]""
2530 [139]of$[179][177]""[167][159]5,of,7,of$[170]",s,w":[152]5,[199](13)[199](13)
2560 [129]bb[178]0[164]65
2565 [158]mt[170]48,0:[158]mt[170]27,bl:[158]mt[170]33,bb
2570 [139]f%[167]f$[178]b$(bb)[170]"???-???":a$[178]"(NULL)earching "[170]w$:bo$[178]w$:[141]5000:[141]4000
2575 [130]:[160]5:[151]186,dv:[138]
2999 [144]
3000 [158]mt[170]27,bn:[158]mt[170]33,bo%:[142]
4000 dx[178]0
4010 [141]1000:[139]f%[179]0[167][139]dx[179](nd[171]1)[167]dx[178]dx[170]1:[137]4010
4020 [139]f%[179]0[167][142]
4025 fi[178]f%:[158]mt[170]48,1:[129]j[178]0[164]fi:[158]mt[170]33,j:fi$(j)[178]w$:[130]:jj[178]0
4030 [139]of[178]d%(dx)[167][160]5
4033 [158]mt[170]48,0:[158]dt,fi$(jj),d%(dx),84[172]256:[158]mt[170]36,84[172]256:en[178]f%[171]2
4035 sp[178]0
4040 [158]mt[170]210,s$,sp,en:[139]f%[177][171]1[167][141]5100
4090 [139]jj[179]fi[167]jj[178]jj[170]1:[137]4030
5000 [158]mt,0,39,0,24,107,115,4,10
5005 [158]sh,0,37,16,21:[158]fr,1,38,16,20,15:[158]bo,2,37,17,19,160,1
5010 [153]"";:[158]ce,18,a$:[142]
5020 [141]5000:[151]198,0:[146]198,15:[142]
5100 sp[178]f%:k[178]0:[143]ifsp>enthenreturn
5110 [139](sp[171]k)[177]0[167]k[178]k[170]1:[158]mt[170]33,sp[171]k:[139]w$[179][177]""[167]5110
5120 bv[178]sp[171]k
5130 k[178]0:[139]sp[177]en[167]ev[178]sp:[142]
5140 [139](sp[170]k)[179]en[167]k[178]k[170]1:[158]mt[170]33,sp[170]k:[139]w$[179][177]""[167]5140
5150 ev[178]sp[170]k:[139]ev[177]en[167]ev[178]en
5160 a$[178]" ":[141]5000
5165 [158]bo,0,39,0,0,160,15:[158]bo,0,39,1,1,160,1:[158]bo,0,39,2,2,160,12
5166 [158]bo,0,39,4,4,160,1:[158]bo,0,39,5,14,160,15:[158]bo,0,39,15,15,160,12
5167 [153]"";:[158]ce,1,bo$
5170 a[178]0:[153]"list";:[129]l[178]bv[164]bv[170]9:[139]l[179]en[167][158]mt[170]33,l:[158]at,1,5[170]a,w$:a[178]a[170]1
5180 [130]
5190 [139]of$[179][177]""[167]a$[178]"(NULL)riting to "[170]of$:[141]5005:[141]5600:[137]5300
5200 [153]"";:[158]at,3,17,"ascind (NULL)ext (NULL)ccurrence ((NULL))"
5220 [158]at,3,18,"(NULL)rint (NULL)his (NULL)ccurrence ((NULL))"
5230 [158]at,3,19,"(NULL)uit and (NULL)e-start (NULL)rogram ((NULL))"
5240 [158]mt[170]63,17,2,37,3,1,7,"npq"
5250 [145]f%[137]5300,5400,5500
5300 [139]sp[178]en[167][142]
5305 sp[178]ev:[158]mt[170]210,s$,sp,en:[139]f%[177][171]1[167]5100
5310 [142]
5400 [160]4:[159]4,4,7:[160]4:[139]st[167]5240
5405 [159]4,4,7:[139]lb$[179][177]bo$[167][152]4,"[**"s$" found in "bo$"**]":lb$[178]bo$
5410 [129]l[178]bv[164]ev:[158]mt[170]33,l:[152]4,w$:[130]:[160]4:[151]631,[198]("n"):[151]198,1
5420 [137]5240
5500 [160]5:[151]186,dv:[138]
5600 [139]of[178]d%(dx)[167][160]5:[159]5,of,5,of$[170]",s,a"
5605 [139]lb$[179][177]bo$[167][152]5,"[**"s$" found in "bo$"**]":lb$[178]bo$
5610 [129]l[178]bv[164]ev:[158]mt[170]33,l:[152]5,w$:[130]:[142]
9999 [144]
10000 _"@0:o.whole search"
10010 [144]
40000 q$[178][199](34):[151]646,[194](53281):[153]"load":[151]53272,23
40100 [153]"loadl(NULL)"q$f$q$","d%(dx)
40110 [153]"p(NULL)53272,23:run:":[151]631,13:[151]632,13:[151]198,2:[128]